home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pascalt2.zip / REPEATLP.PAS < prev    next >
Pascal/Delphi Source File  |  1988-01-15  |  372b  |  16 lines
  1.                                 (* Chapter 4 - Program 6 *)
  2. program Repeat_Loop_Example;
  3.  
  4. var Count : integer;
  5.  
  6. begin
  7.    Count := 4;
  8.    repeat
  9.       Write('This is in the ');
  10.       Write('repeat loop, and ');
  11.       Write('the index is',Count:4);
  12.       Writeln;
  13.       Count := Count + 2;
  14.    until Count = 20;
  15.    Writeln(' We have completed the loop ');
  16. end.